﻿Public Class ReconnArrayDataType
    Private m_ReconnArrayDataConstrue(-1) As ReconnArrayDataConstrue

    Property ArrDataType() As ReconnArrayDataConstrue()
        Get
            Return Me.m_ReconnArrayDataConstrue
        End Get
        Set(ByVal value As ReconnArrayDataConstrue())
            Me.m_ReconnArrayDataConstrue = value
        End Set
    End Property

    Public Sub New()
        For i As Integer = 0 To 2
            ReDim Preserve Me.m_ReconnArrayDataConstrue(Me.m_ReconnArrayDataConstrue.Length)
            Me.m_ReconnArrayDataConstrue(Me.m_ReconnArrayDataConstrue.Length - 1) = New ReconnArrayDataConstrue
        Next
    End Sub


End Class
